100 IF A=0 THEN A=1:LOAD "INPUT.OBJ",8,1
110 PRINT "[147][201][206][208][213][212] [196][197][205][207]"
120 POKE 53281,0:POKE 53280,0:POKE 53272,23
130 PR=49152:IN=49155:RET=780:ESC=781
140 B$=".":C$="-":D$="$"
150 SYS PR,1,4,"[206]AME:"
160 SYS PR,1,6,"[193]DDRESS:"
170 SYS PR,1,8,"[195]ITY:"
180 SYS PR,23,8,"[208]HONE:"
190 SYS PR,1,10,"[193]MOUNT [207]WED: [159]          [146] - [196]UES"
200 SYS PR,14,11,"          [146] - [196]ISKS
210 [158] PR,14,12,"          WAIT - (null)AGAZINES
220 SYS PR,14,13,"          [146] - [212]OTAL
230 [135] NA$,AD$,CI$,PH$,DU$,DI$,MA$,TL$
240 [131] "CHR$ARRY (null)IZIAK        ","2381 STR$UNCASTER STR$RIVE     "
250 [131] "PEEKURLINGTON     ","335-4837"
260 [131] "     $0.00","     $3.50","    $12.00","    $15.50"
1000 [153] "SYS":[158] IN,7,4,NA$,20,153,B$:[139] [194](ESC) [167] 1160
1010 [145] [194](RET) [137] 1020,1020,1140
1020 [153] "SYS":[158] IN,10,6,AD$,25,155,B$:[139] [194](ESC) [167] 1160
1030 [145] [194](RET) [137] 1040,1040,1000
1040 [153] "SYS":[158] IN,7,8,CI$,15,153,B$:[139] [194](ESC) [167] 1160
1050 [145] [194](RET) [137] 1060,1060,1020
1060 [153] "SYS":[158] IN,30,8,PH$,8,154,C$:[139] [194](ESC) [167] 1160
1070 [145] [194](RET) [137] 1080,1080,1040
1080 [153] "OPEN";:[158] IN,14,10,DU$,10,222,D$:[139] [194](ESC) [167] 1160
1090 [145] [194](RET) [137] 1100,1100,1060
1100 [153] "OPEN";:[158] IN,14,11,DI$,10,222,D$:[139] [194](ESC) [167] 1160
1110 [145] [194](RET) [137] 1120,1120,1080
1120 [153] "OPEN";:[158] IN,14,12,MA$,10,222,D$:[139] [194](ESC) [167] 1160
1130 [145] [194](RET) [137] 1140,1140,1100
1140 [153] "";:[158] IN,14,13,TL$,10,222,D$:[139] [194](ESC) [167] 1160
1150 [145] [194](RET) [137] 1000,1000,1120
1160 [158] PR,4,20,"WAIT(null)HAT'S ALL THERE IS TO IT!!!"